home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / WhatView / Executables / Install-WhatView next >
Encoding:
Text File  |  1995-03-27  |  10.2 KB  |  391 lines
  1. ; =========================================
  2. ; $VER: Install-WhatView v0.1 © 1995 NasGûl
  3. ; =========================================
  4. (complete 0)
  5. ; =============
  6. ; French string
  7. ; =============
  8. (if ( = @language "français")
  9. (
  10.     (set #bad-kick
  11.     (cat "OS 2.X Uniquement."
  12.     ))
  13.     (set #intro
  14.     (cat "Installation de:\n"
  15.          " - WhatView.\n"
  16.          " - WVPrefs.\n"
  17.          " - WhatIsPrefs.\n"
  18.          " - WhatIs.\n"
  19.          " - WhatConf.\n"
  20.          " - Libs:reqtools.library.\n"
  21.          " - Libs:whatis.library.\n"
  22.          " - L:WBstart-Handler.\n"
  23.          "(Vous devez faire l'installation en mode EXPERT ou INITIE).\n"
  24.     ))
  25.     ; >>>>>> WhatView String
  26.     (set #dirwhatview
  27.     (cat "Choisissez le dossier de destination de WhatView."
  28.     ))
  29.     (set #help-dirwhatview
  30.     (cat "Vous pouvez mettre WhatView dans vôtre dossier\n"
  31.          "Sys:WBStartup.\n"
  32.          "(Ce dossier est le dossier par défaut)."
  33.     ))
  34.     (set #copywhaview
  35.     (cat "Installation de WhatView."
  36.     ))
  37.     ; >>>>>> WVprefs String
  38.     (set #dirwvprefs
  39.     (cat "Choisissez le dossier de destination de WVPrefs."
  40.     ))
  41.     (set #help-dirwvprefs
  42.     (cat "Vous pouvez mettre WVPrefs dans vôtre dossier\n"
  43.          "Sys:Prefs.\n"
  44.          "(Ce dossier est le dossier par défaut)."
  45.     ))
  46.     (set #copywvprefs
  47.     (cat "Installation de WVPrefs."
  48.     ))
  49.     ; >>>>>> WhatIsPrefs String
  50.     (set #dirwhatisprefs
  51.     (cat "Choisissez le dossier de destination de WhatIsPrefs."
  52.     ))
  53.     (set #help-dirwhatisprefs
  54.     (cat "Vous pouvez mettre WhatIsPrefs dans vôtre dossier\n"
  55.          "Sys:Prefs.\n"
  56.          "(Ce dossier est le dossier par défaut)."
  57.     ))
  58.     (set #copywhatisprefs
  59.     (cat "Installation de WhatIsPrefs."
  60.     ))
  61.     ; >>>>>> WhatIs et WhatConf String
  62.     (set #dirwhatis
  63.     (cat "Choisissez le dossier de destination de WhatIs et WhatConf."
  64.     ))
  65.     (set #help-dirwhatis
  66.     (cat "Vous pouvez mettre WhatIs et WhatConf dans vôtre dossier\n"
  67.          "C:.\n"
  68.          "(Ce dossier est le dossier par défaut)."
  69.     ))
  70.     (set #copywhatis
  71.     (cat "Installation de WhatIs et WhatConf."
  72.     ))
  73.     ; >>>>>> ReqTools.library String
  74.     (set #reqtoolsprompt
  75.     (cat "Installation de la reqtools.library."
  76.     ))
  77.     ; >>>>>> WhatIs.library String
  78.     (set #whatisprompt
  79.     (cat "Installation de la whatis.library (v4.0)."
  80.          "La fonction copylib d'Installer plante ma machine "
  81.          "avec la librarie whatis.library,l'installation se "
  82.          "fait donc en copie normale."
  83.     ))
  84.     (set #whatisfiletypes
  85.     (cat "Installation de fichier S:Filetypes"
  86.     ))
  87.     ; >>>>>> WBStart-Handler String
  88.     (set #wbstartprompt
  89.     (cat "Installation du WBStart-Handler."
  90.     ))
  91.     ; >>>>>> Docs (.guide) String
  92.     (set #dirguide
  93.     (cat "Choisissez le dossier ou sera copié les Guide"
  94.     ))
  95.     (set #dirguide-help
  96.     (cat "Les docs sont a format AmigaGuide,de plus le fichier "
  97.          "WhatViewSources.Guide est un déscriptif du source."
  98.     ))
  99.      >>>>>> Extras Installation String
  100.     (set #choixextras_prompt
  101.     (cat "Choisissez les Extras que vous Voulez Installer."
  102.     ))
  103.     (set #extras_1
  104.      "Installation des icônes par défaut."
  105.     )
  106.     (set #extras_1_help
  107.     (cat "Ces icônes peuvent vous servir comme icônes par défaut "
  108.          "pour la WhatIs.library (donc pour WhatView),elles sont "
  109.          "toutes au format du gabarit d'IconEdit.\n"
  110.          "Vous pouvez les mettre n'importe où,car contrairement "
  111.          "a BrowserII,WhatView peut chercher ses icônes ailleurs "
  112.          "que dans le dossier Env:Sys.\n"
  113.     ))
  114.     (set #extras_2
  115.      "Installation des sources E."
  116.     )
  117.     (set #extras_2_help
  118.     (cat "Je vous conseille de créer un dossier avant d'installer les "
  119.          "sources.2 archives seront copiées, (Modules.lha) et (Pmodules.Lha), "
  120.          "elles sont indispensable pour la compilation de WhatView.\n"
  121.          "Je ne les ai pas désarchivées car elles contiennent d'autres "
  122.          "modules (opal.m Vmem.m),je laisse donc le soin a l'utilisateur "
  123.          "d'installer que se qui lui faut et surtout de savoir les fichiers "
  124.          "installés."
  125.     ))
  126.     (set #extras_3
  127.      "Désarchivage de WBStart1_4.lha."
  128.     )
  129.     (set #extras_3_help
  130.     (cat "Désarchive WBStart1_4.lha,cette archive est telle que je l'ai "
  131.          "trouvé (contient des sources en C..)\n"
  132.     ))
  133.     (set #choixextras_help
  134.     (cat "Installation des icônes par défaut.\n"
  135.          "-----------------------------------\n"
  136.          "L'archive defIcons.Lha Contient quelques icônes pouvant servir "
  137.          "a WhatView.Ce seront ces icônes (si vous les choisissez) qui "
  138.          "seront utilisées lors de l'ajout d'icône.\n"
  139.          "Installation des sources E.\n"
  140.          "--------------------------\n"
  141.          "Installe les sources de WhatView plus quelques modules.\n"
  142.          "Désarchivage de WBStart1_4.lha.\n"
  143.          "------------------------------\n"
  144.          "Désarchive WBStart1_4.lha,cette archive est telle que je l'ai "
  145.          "trouvé (contient des sources en C..)\n"
  146.     ))
  147.  
  148. ))
  149.  
  150. (user 2)
  151. (message #intro)
  152. (welcome)
  153.  
  154. ; ========================================================================
  155. ; WHATVIEW / WVPREFS / WHATISPREFS / WHATIS / WHATCONF / LIBRARY / HANDLER
  156. ; ========================================================================
  157. ; ========================
  158. ; Installation de WhatView
  159. ; ========================
  160. (set @destdir
  161.     (askdir
  162.         (prompt #dirwhatview)
  163.         (help   #help-dirwhatview)
  164.         (default "Sys:WBStartup")
  165.     )
  166. )
  167. (set @default-dest @destdir)
  168. (copylib
  169.     (prompt #copywhatview)
  170.     (help @copylib-help)
  171.     (source "WhatView")
  172.     (dest @destdir)
  173.     (infos)
  174. )
  175. (complete 14)
  176. ; =======================
  177. ; Installation de WVPrefs
  178. ; =======================
  179. (set @destdir
  180.     (askdir
  181.         (prompt #dirwvprefs)
  182.         (help   #help-dirwvprefs)
  183.         (default "Sys:Prefs")
  184.     )
  185. )
  186. (copylib
  187.     (prompt #copywvprefs)
  188.     (help @copylib-help)
  189.     (source "WVPrefs")
  190.     (dest @destdir)
  191.     (confirm)
  192.     (infos)
  193. )
  194. (complete 28)
  195. ; ===========================
  196. ; Installation de WhatIsPrefs
  197. ; ===========================
  198. (set @destdir
  199.     (askdir
  200.         (prompt #dirwhatisprefs)
  201.         (help   #help-dirwhatisprefs)
  202.        (default "Sys:Prefs")
  203.     )
  204. )
  205. (copylib
  206.     (prompt #copywhatisprefs)
  207.     (help @copylib-help)
  208.     (source "WhatIsPrefs")
  209.     (dest @destdir)
  210.     (confirm)
  211.     (infos)
  212. )
  213. (complete 42)
  214. ; ==================================
  215. ; Installation de WhatIs et WhatConf
  216. ; ==================================
  217. (set @destdir
  218.     (askdir
  219.         (prompt #dirwhatis)
  220.         (help   #help-dirwhatis)
  221.         (default "C:")
  222.     )
  223. )
  224. (copylib
  225.     (prompt #copywhatis)
  226.     (help @copylib-help)
  227.     (source "Whatis")
  228.     (dest @destdir)
  229.     (confirm)
  230. )
  231. (copylib
  232.     (prompt #copywhatis)
  233.     (help @copylib-help)
  234.     (source "WhatConf")
  235.     (dest @destdir)
  236.     (confirm)
  237. )
  238.  
  239. (complete 56)
  240. ; ===================================
  241. ; Installation de la reqtools.library
  242. ; ===================================
  243. (message #reqtoolsprompt)
  244. (copylib
  245.     (prompt #reqtoolsprompt)
  246.     (help   @copylib-help)
  247.     (source "libs/reqtools.library")
  248.     (dest   "Libs:")
  249.     (confirm)
  250.     (optional nofail askuser)
  251. )
  252. (complete 70)
  253. ; =================================
  254. ; Installation de la whatis.library
  255. ; =================================
  256. (message #whatisprompt)
  257. ;>>>>> Crash my machine !!!!  (installer Failed..)
  258. ;(copylib
  259. ;    (prompt #whatisprompt)
  260. ;    (help   @copylib-help)
  261. ;    (source "libs/whatis.library")
  262. ;    (dest   "Libs:")
  263. ;    (confirm)
  264. ;    (optional nofail askuser)
  265. ;)
  266.  
  267. (copyfiles
  268.     (prompt #whatisprompt)
  269.     (help   @copylib-help)
  270.     (source "libs/whatis.library")
  271.     (dest   "Libs:")
  272.     (choices "whatis.library")
  273.     (confirm)
  274. )
  275. (copyfiles
  276.     (prompt #whatisfiletypes)
  277.     (help @copyfiles-help)
  278.     (source "S/filetypes")
  279.     (dest "S:")
  280.     (choices "S/filetypes")
  281.     (confirm)
  282. )
  283. (complete 84)
  284. ; ===================================
  285. ; Installation du WBStart-Handler
  286. ; ===================================
  287. (message #wbstartprompt)
  288. (copylib
  289.     (prompt #wbstartprompt)
  290.     (help   @copylib-help)
  291.     (source "l/WBStart-Handler")
  292.     (dest   "L:")
  293.     (confirm)
  294.     (optional nofail askuser)
  295. )
  296. (complete 100)
  297.  
  298. ; =======================
  299. ; Installation Des Guides
  300. ; =======================
  301. (set @destdir
  302.     (askdir
  303.         (prompt #dirguide)
  304.         (help   #dirguide-help)
  305.         (default "Sys:")
  306.     )
  307. )
  308. (copyfiles
  309.     (prompt #copyguide)
  310.     (help   @copyfiles-help)
  311.     (source "/Docs/")
  312.     (dest @destdir)
  313.     (choices "WhatView.Guide" "WhatView.Guide.info"
  314.              "WhatViewSources.Guide" "WhatViewSources.Guide.info")
  315.     (confirm)
  316. )
  317.  
  318. ; =======================
  319. ; Installation des Extras
  320. ; =======================
  321. (set choix
  322.     (askoptions
  323.         (prompt  #choixextras_prompt)
  324.         (help    #choixextras_help)
  325.         (choices #extras_1 #extras_2 #extras_3)
  326.     )
  327. )
  328.  
  329. ; ==================================
  330. ; Installation Des Icônes Par Defaut
  331. ; ==================================
  332. (if
  333.     (BITAND choix 1)
  334.         ((set @destdir
  335.             (cat
  336.                 (askdir
  337.                     (prompt #extras_1)
  338.                     (help   #extras_1_help)
  339.                     (default "Ram:")
  340.                 )
  341.             )
  342.         )
  343.         (set @d (cat "C/Lha >Ram:test x /Extras/DefIcons.lha " (tackon @destdir " ")))
  344.         (working #extras_1)
  345.         (run @d
  346.             (prompt #extras_1)
  347.         ))
  348. )
  349. ; ==========================
  350. ; Installation des sources E
  351. ; ==========================
  352. (if
  353.     (BITAND choix 2)
  354.         ((set @destdir
  355.             (cat
  356.                 (askdir
  357.                     (prompt #extras_2)
  358.                     (help   #extras_2_help)
  359.                     (default "Ram:")
  360.                 )
  361.             )
  362.         )
  363.         (copyfiles
  364.             (prompt #extras_2)
  365.             (help   #extras_2_help)
  366.             (source "/Sources/")
  367.             (dest   @destdir)
  368.             (pattern "#?")
  369.         ))
  370. )
  371. (if
  372.     (BITAND choix 4)
  373.         ((set @destdir
  374.             (cat
  375.                 (askdir
  376.                     (prompt #extras_3)
  377.                     (help   #extras_3_help)
  378.                     (default "Ram:")
  379.                 )
  380.             )
  381.         )
  382.         (set @d (cat "C/Lha >Ram:test x /Extras/WBStart1_4.lha " (tackon @destdir " ")))
  383.         (working #extras_3)
  384.         (run @d
  385.             (prompt #extras_3)
  386.         ))
  387.  
  388. )
  389.  
  390.  
  391.